00100	BEGIN "RGB"
00200	
00300	REQUIRE "PROLOG.HDR[1,PDQ]" SOURCE_FILE;
00400	REQUIRE "COMSUB.HDR[1,PDQ]" SOURCE_FILE;
00500	REQUIRE "PICIO.HDR[1,PDQ]" SOURCE_FILE;
00600	REQUIRE "PICOPS.HDR[1,PDQ]" SOURCE_FILE;
00700	
00800	PICTURE PIC1,PIC2,PIC3[0:PICMAX];
00900	INTEGER SCALE;		STRING NAM;
00950		INTEGER ARRAY CNTS[0:15,1:3];
01000	
01100	SIMPLE PROCEDURE RGB2IC(PICTURE PIC1,PIC2,PIC3);
01200	BEGIN	INTEGER SIZX,SIZY,SIZL,PT1,OPT1,PT2,OPT2,PT3,OPT3,XPT2,
01300			HINT,INT,INT1,INT2,PT,LIN,R,G,B,R1,R2,G1,G2,B1,B2,X,Y;
01355		FOR R←1 STEP 1 UNTIL 3 DO FOR G←0 STEP 1 UNTIL 15 DO CNTS[G,R]←0;
01400	
01500		SIZX←PIC1[SIZEX];  SIZY←PIC1[SIZEY];  SIZL←PIC1[SIZEL];
01550	OUTSTR(" SIZX "&CVS(SIZX)&" SIZY "&CVS(SIZY)&" SIZL "&CVS(SIZL)&CRLF);
01600		OPT1←PIC1[PTR];    OPT2←PIC2[PTR];    OPT3←PIC3[PTR];
01650	OUTSTR(" OPT1 "&CVOS(OPT1)&" OPT2 "&CVOS(OPT2)&" OPT3 "&CVOS(OPT3)&CRLF);
01700		HINT←1 LSH (PIC1[BIT]-1);
01800		FOR LIN←1 STEP 1 UNTIL SIZY DO
01900		BEGIN	PT1←OPT1;  PT2←OPT2;  PT3←OPT3;
02000			FOR PT←1 STEP 2 UNTIL SIZX DO
02100			BEGIN	R1←(2*(ILDB(PT1)-4) MAX 0) MIN 15;
02102				G1←(2*(ILDB(PT2)-4) MAX 0) MIN 15;
02103				B1←(2*(ILDB(PT3)-4) MAX 0) MIN 15;
02105			CNTS[R1,1]←CNTS[R1,1]+1;
02110			CNTS[G1,2]←CNTS[G1,2]+1;
02115			CNTS[B1,3]←CNTS[B1,3]+1;
02200				INT1←R1+G1+B1;
02300				DPB(INT1 DIV 3,PT1);
02400				XPT2←PT2;
02500				R2←(2*(ILDB(PT1)-4) MAX 0) MIN 15;
02502				G2←(2*(ILDB(PT2)-4) MAX 0) MIN 15;
02503				B2←(2*(ILDB(PT3)-4) MAX 0) MIN 15;
02505			CNTS[R2,1]←CNTS[R2,1]+1;
02510			CNTS[G2,2]←CNTS[G2,2]+1;
02515			CNTS[B2,3]←CNTS[B2,3]+1;
02600				INT2←R2+G2+B2;
02700				DPB(INT2 DIV 3,PT1);
02800		R←R1+R2; R←R*R*R; G←G1+G2; G←G*G*G; B←B1+B2; B←B*B*B;
02900				X←(((2*R-B-G) DIV 5000 + HINT) MAX 0) MIN 15;
03000				Y←(((2*G-R-B) DIV 5000 + HINT) MAX 0) MIN 15;
03100				DPB(X,XPT2);   DPB(Y,PT2);
03200			END;
03300			OPT1←OPT1+SIZL;   OPT2←OPT2+SIZL;   OPT3←OPT3+SIZL;
03400		 END;
03402		OUTSTR(CRLF&"	RED	GREEN	BLUE"&CRLF);
03405		FOR R←0 STEP 1 UNTIL 15 DO OUTSTR('11&CVS(CNTS[R,1])&'11&
03410					CVS(CNTS[R,2])&'11&CVS(CNTS[R,3])&CRLF);
03500	END "RGB2IC";
03600	
03700	WHILE TRUE DO
03800	BEGIN	NAM←STRIN("FILE NAME=");
03900		RECPIC(PIC1,0,"R"&NAM);
04000		RECPIC(PIC2,0,"G"&NAM);
04100		RECPIC(PIC3,0,"B"&NAM);
04200		RGB2IC(PIC1,PIC2,PIC3);
04300		SNDPIC(PIC1,NULL,"I"&NAM);
04400		SNDPIC(PIC2,NULL,"C"&NAM);
04500		PICREL(PIC1);	PICREL(PIC2);	PICREL(PIC3);
04600	END;
04700	
04800	END "RGB"